home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / netinet / tcp_var.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.3 KB  |  53 lines
  1. if (!defined &_TCP_VAR) {
  2.     eval 'sub _TCP_VAR {1;}';
  3.     if (!defined &BSD) {
  4.     eval 'sub BSD {42;}';
  5.     eval 'sub OLDSTAT {1;}';
  6.     }
  7.     if ( &sun ||  &BSD < 43) {
  8.     eval 'sub TCP_COMPAT_42 {1;}';
  9.     }
  10.     if (!defined &SB_MAX) {
  11.     if (defined &SB_MAXCOUNT) {
  12.         eval 'sub SB_MAX { &SB_MAXCOUNT;}';
  13.     }
  14.     else {
  15.         eval 'sub SB_MAX {32767;}';
  16.     }
  17.     }
  18.     if (!defined &IP_MAXPACKET) {
  19.     eval 'sub IP_MAXPACKET {65535;}';
  20.     }
  21.     if (!defined &MCLBYTES) {
  22.     eval 'sub MCLBYTES { &CLBYTES;}';
  23.     }
  24.     if (defined &sun) {
  25.     eval 'sub in_localaddr { &tcp_in_localaddr;}';
  26.     }
  27.     eval 'sub TF_ACKNOW {0x01;}';
  28.     eval 'sub TF_DELACK {0x02;}';
  29.     eval 'sub TF_NODELAY {0x04;}';
  30.     eval 'sub TF_NOOPT {0x08;}';
  31.     eval 'sub TF_SENTFIN {0x10;}';
  32.     eval 'sub TCPOOB_HAVEDATA {0x01;}';
  33.     eval 'sub TCPOOB_HADDATA {0x02;}';
  34.     eval 'sub intotcpcb {
  35.         local($ip) = @_;
  36.         eval "((\'struct tcpcb\' *)($ip)-> &inp_ppcb)";
  37.     }';
  38.     eval 'sub sototcpcb {
  39.         local($so) = @_;
  40.         eval "( &intotcpcb( &sotoinpcb($so)))";
  41.     }';
  42.     if (defined &OLDSTAT) {
  43.     eval 'sub tcps_badsum { &tcps_rcvbadsum;}';
  44.     eval 'sub tcps_badoff { &tcps_rcvbadoff;}';
  45.     eval 'sub tcps_hdrops { &tcps_rcvshort;}';
  46.     }
  47.     if (!defined &OLDSTAT) {
  48.     }
  49.     if (defined &KERNEL) {
  50.     }
  51. }
  52. 1;
  53.